МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ Національний університет «Львівська політехніка» Кафедра АСУ Звіт до лабораторної роботи №5 з курсу “Об'єктно орієнтоване програмування” Варіант 8 Бунь І.П. Тема Створення власних класів та об'єктів Мета роботи: Засвоїти основні поняття об'єктно-орієнтованого програмування, навчитися створювати свої об'єкти і будувати програми, засновані на об'єктному підході. Порядок роботи: Створити проект для виконання індивідуального завдання. Оформити звіт для захисту лабораторної роботи за зразком назва роботи мета роботи порядок роботи короткі теоретичні відомості алгоритм розв’язку задачі тексти відповідних модулів проекту аналіз отриманих результатів та висновки Завдання. Написати програму, яка демонструє роботу з класами та об'єктами. Програма повинна містити меню, яке дозволяє виконати перевірку всіх методів класу. Описати клас поліномів від однієї змінної, що задаються степенем полінома та масивом коефіцієнтів. Передбачити методи для обчислення значення полінома для заданого аргументу, операції додавання, віднімання та множення поліномів з одержанням нового об'єкта-полінома, вивід на екран опису полінома. Тексти програм: //================================================================================// // Юніт 1 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Polynom, StdCtrls, ExtCtrls; type TTestClass = class(TForm) AStep: TEdit; Label1: TLabel; ACoef: TEdit; Label2: TLabel; ACreate: TButton; AResult: TLabel; Label4: TLabel; Label5: TLabel; BResult: TLabel; BStep: TEdit; BCoef: TEdit; BCreate: TButton; Operations: TComboBox; DoCulc: TButton; ResultofCulc: TLabel; Label3: TLabel; Shape1: TShape; Label6: TLabel; Shape2: TShape; Shape3: TShape; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; AXequal: TEdit; Label11: TLabel; Label12: TLabel; BXequal: TEdit; Label13: TLabel; ThenB: TLabel; ThenA: TLabel; procedure FormCreate(Sender: TObject); procedure StepKeyPress(Sender: TObject; var Key: Char); procedure CoefKeyPress(Sender: TObject; var Key: Char); procedure CreateClick(Sender: TObject); procedure DoCulcClick(Sender: TObject); procedure DataChange(Sender: TObject); procedure equalChange(Sender: TObject); procedure equalKeyPress(Sender: TObject; var Key: Char); procedure OperationsChange(Sender: TObject); private { Private declarations } public function GetCoef(Str:string;_from:word;_to:word):string; { Public declarations } end; var TestClass: TTestClass; A:TPolynom; B:Tpolynom; AandBisInit:byte; implementation {$R *.dfm} procedure TTestClass.FormCreate(Sender: TObject); begin AandBisInit:=0; DoCulc.Enabled:=false; Operations.Enabled:=false; AXequal.Enabled:=false; BXequal.Enabled:=false; A:=TPolynom.Create; B:=TPolynom.Create; AResult.Caption:='Ще ні'; BResult.Caption:='Ще ні'; end; procedure TTestClass.StepKeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['1'..'9',#8]) then key:=#0; end; procedure TTestClass.CoefKeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9',',','-',#8]) then key:=#0; case key of '-':begin if (Length((Sender as TEdit).Text)>0) then if not ((Sender as TEdit).Text[Length((Sender as TEdit).Text)]=',')then key:=#0; end; ',':begin if (Length ((Sender as TEdit).Text)=0) then Key:=#0 else if not((Sender as TEdit).Text[Length((Sender as TEdit).Text)] in ['0'..'9']) then key:=#0; end; end; end; procedure TTestClass.CreateClick(Sender: TObject); var i:integer; count:integer; cursor:integer; endofdigit:integer; pPolynom:^TPolynom; pCoefEdit:^TEdit; pResultEdit:^TLabel; pStepEdit:^TEdit; pXEdit:^TEdit; begin if(Sender as...